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MainLoop: 

While there are unprocessed instruction groups { 
Select next instruction group. 

TopOf Group: 

For each instruction in the group: 

swatch on instruct ion_type { 
case TypeA: 

TypesA++; 
TypesMIA++; 
break; 
case TypeM: 

TypesM++; 
TypesMIA+-t-; 
break; 
case Typel: 

Typesl++; 
Typesiy!IA++; 
break; 
case TypeB: 

TypesB++; 
break; 
case TypeF: 

Types F++; 
break; 
case TypeLI: 

TypesLI++; 
break; 
default: 
error; 

} 

TypesALL+i; 

/ 

I Test for the a previous incomplete bundle 
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/ 



if INCOMPLETE is not zero { 
if INCOMPLETE equals M_MI( 
INCOMPLETE - 0; 



MakeM MI: 



if despersal window is large { 

Template = M_MI; 
take-M; 
take-I; 

goto StoreBundle; 
remainder = size of instruction group % 3; 

if remainder = 0 then: { « tv ✓ 

if TypesI > 0 AKD TypesF < TypesF-units AND TypesM+TypesA < 

bundle count then: 

goto MakeM__MI; 
else 
goto MakeMFB; 



} 



if remain 



P 

ifcler 



= 1 then: { 



if (TypesI > 0 OR TypesA > 0) AND TypesF < TypesF-units AND 

TypesM+TypesA < bundle count then: 
goto MakeM_MI; 
else 
goto MakeMFB; 

} 

remainder = 2 */ ,„ o avin 

if (TypesI > 0 OR TypesA •> 0) AND TypesF < TypesF-units AND 

TypesM+TypesA >= bundle count then: 
goto MakeM_MI; 



MakeMFB: 



-+/ 



Template = MFB_; 

nop; 

nopb; 

goto StoreBundle; 



INCOMPLETE equals MI_I 



) else { 

INCOMPLETE = 0; 

if despersal window is large { 



Mak€MI_I: 



MakeMIB: 



Template - M1_I' 
take-I; 

goto StoreBundle; 

Remainder = size of instruction group % 3 
if remainder = 2 then: 
goto MakeMIB; 

if remainder =^ 0 then: { 

if TypesI > 0 AND TypesF < TypesF-units , , ^ 

AND TypesM+TypesA < bundle count then: goto MakeMI_I; 
else goto MakeMIB; 

} 

/* remainder = 1 */ „ •♦.^ 

if (TypesI > 0 OR TypesA > 0) AND TypesF < TypesF-units 
AND TypesM+TypesA < bundle count then: goto MakeMI_I; 



Template = MIB__; 
nopB; 

goto StoreBundle; 



While TypesALL >-0{ // while instructions remain in group 
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if TypesALL is equal to TypesMIA { 

if TypesALL > 3 { Tpmnlate = MMI; take-M;take-M;take-I 

if TvpesM > TypesI+TypesA then. Template mix, 
else Template = Mil; take-M;take-I;take-I 

goto StoreBundle; 

If TypesALL = 3 and this is the first bundle of the group { 
If ?Ssl > 1 then: Template = Mil; take-M; take-I; take-I 
else Template = MMI; take-M; take-M;take-I 
goto StoreBundle; 

IfTvnesALL = 2 OR TypesALL = 1 and TypesI = K 

If T^sM = 2 thenf Template = MMF; take-M; take-M; nop; goto 

StoreBundle;^^ INCOMPLETE = MI_I take-M; take-I; goto TopOf Group 

/* TypesALL = 1 */ 

INCOMPLETE = M_MI take-M; goto TopOfGroup 

If TypesLX > 0 then: Template= MLX; take-M; take-LX; goto StoreBundle; 
if TypesB > 0 AND TypesALL-TypesB < 3 then: { 

ir.Zel.'^"J^Ts^ 1 2 then: Template= MFI nop; takeF; take-I; goto 
StoreBundle;^^ Template=MFB take-M;takeF;take-B; goto StoreBundle; 

' ^IfTi^elf =1 Jhenl Template^ Mil nop; takeF; take-I ; goto StoreBundle; 

^Ise TemDlate=MIB take-M; take-I; take-B; goto StoreBundle; 
lelJe If ?^esM = 2 then: Template = MMB take-M; take-M; take-B; goto 

StoreBundle;^ TypesALL-TypesB = 2 then: Template = MIB take-M;take-I;take-B; 
goto StoreBundle;^^^ ^ ^ ^^^^ ^^^^^^^^ ^ take-M; takeF; take-B; goto 

StoreBundle;^ there are 2 TypesB instructions or 1 non-TypesB: Template = MBB 
♦- = v^-M . haVp-B- take-B; qoto StoreBundle; 

take take-B;take-B;take-B; goto StoreBundle; 

} 

^If T^lll^l = 3^AND TypesM = 2 then: Template = MMF take-M; take-M takeF; 
goto StoreBundle;^^^ ^ take-M;takeF take-I; goto StoreBundle; 
) 

StoreBundle: , , ^ i 4.^. 

if TypesALL = 0 then: insert stop bit m Template, 
build bundle in code buffer; 
if TypesALL = 0 then: goto MainLoop; 
else goto TopOGroup; 

) 

DONE 

if INCOMPLETE is not zero then: { c^r^r^.R,mdle • 

if INCOMPLETE = M_MI then: Template = MFB; nop; nopB; goto StoreBundle, 
else Template = MIB; nopB; goto StoreBundle; 

) 
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